; Events file
; Civ II ToT Original Game extension
; Copyright 1999 MicroProse Software
;
;
; Modified for ESCAPE FROM SOL Scenario
;



;
; Initialization
; --------------

@BEGINEVENTS
@INITFLAG

;
; Flags
; -----
;
; 0   not used
; 1   not used
; 2   not used
; 3   not used
; 4   not used
; 5   not used
; 6   not used
; 7   not used
; 8   not used
; 9   not used
; 10  not used
; 11  not used
; 12  not used
; 13  not used
; 14  not used
; 15  not used
; 16  not used
; 17  not used
; 18  not used
; 19  not used
; 20  not used
; 21  not used
; 22  not used
; 23  not used
; 24  not used
; 25  not used
; 26  not used
; 27  not used
; 28  not used
; 29  not used
; 30  not used
; 31  not used


@IF
TURN
turn=01
@THEN
TEXT
^^Welcome to MARS.
^
Mars is a now no longer a benign world. You are unfortunate enough to have found yourself in the Epoch known to the latter-day inhabitants as the "Great Dry". The once fertile river valleys and plains have in part dried and cracked. The oceans, including Grand Tethys, are but puddles of their former glory.
^
Some of the genetically engineered life forms (GELFs) have been affected by the increased solar radiation and the slippage of the environmental norms outside of "safe" parameters.
^
The woodlands have turned 'alien' and no longer bear edible provenance. There are also a variety of toxic plant forms or GELF-mutated forms that are inedible. Certain of these GELF-animals have gone rogue, and various human nut-cases wander the landscape.
^
ENDTEXT
PlayWaveFile
Fanfare2.wav
@ENDIF


@IF
TURN
turn=02
@THEN
TEXT
For Aeons only city-less Nomads roamed the surface of the Paradise that was once Mars,
but now the Halycon days of the second Eden are over, and the harsh conditions have forced a return to primitive forms of agriculture.
^
ENDTEXT
PlayWaveFile
Druma0.wav
@ENDIF


@IF
TURN
turn=03
@THEN
TEXT
^
Interplanetary teleporters were developed millenia ago but earth-kind was never able to
get their "Heisenburg-Compensators" (See Heisenburg Uncertainty Principle, Quantum Mechanics)
to work at distances beyond the Gas-Giants of our solar system. These Teleporters, in a variety of shapes, can be found scattered across the landscape.
^
This old inter-planetary Teleporter network may still work, and this network may
represent your best chance to travel to lost earth, but alas the knowledge as to how to build them has been lost. Nor does anyone know quite where each one will take them within the solar system, this knowledge also having been lost.
^
ENDTEXT
PlayWaveFile
Drumbl.wav
@ENDIF




@IF
TURN
turn=04
@THEN
TEXT
^
No-one knows what has happened to the earth over the millenia,
but is is commonly known that the earth is the only place in the
solar system likely to have sufficient resources to allow an
inter-stellar spacecraft to be built.
^
The bad news is that the Earth may also be somewhat environmentally devastated,
and even there decent pockets of arable land may be hard to find...
^
ENDTEXT
PlayWaveFile
Drumbl.wav
@ENDIF



@IF
TURN
turn=05
@THEN
TEXT
^
Beware of the Luddites, who believe that we must accept the will of the cosmos and not research into the forbidden knowledge of our misguided ancestors. As with so many single-minded belief systems, however they are not averse to using whatever military wisdom may come their way to reinforce their point of view.
^
There are also various Pyramids scattered about the landscape,
left by the long-gone archivists, which may house Exciting finds,
(If they have not already been taken over by Luddites).
^
ENDTEXT
PlayWaveFile
Drumbl.wav
@ENDIF


@IF
TURN
turn=10
@THEN
TEXT
Oh, and I forgot to mention, the *last* time mankind tried to get to the stars
we foundered due to an inherent inability to get our brains around certain key
technologies necessary to make a successful interstellar manned flight.
^
Various research projects were developed to try to develop a race
that could 'think outside' the Homo Sapiens 'square'.
^
If such an experiment was successful, your only hope may be to find that enhanced race and trade with them so that they (and you) can jointly develop the key techs (such as Fusion Power) that will allow a spacecraft build, launch & journey to ensure mankind does not perish in the impending Solar Inferno.
^
ENDTEXT
PlayWaveFile
5th.wav
@ENDIF

@IF
TURN
turn=11
@THEN
TEXT
^However, if you find such a race,
^establishing meaningful communications
^with them may be no simple thing...
^
^^Good Luck !
^
ENDTEXT
@ENDIF
;


; @IF
; RANDOMTURN
; denominator=200
; @THEN
; JUSTONCE
; TEXT
; Traveller's Report - Freak Sandstorms near the Martian Equator.
; Traveller's Report - Freak Sandstorms near the Martian North Pole.
; Traveller's Report - Freak Sandstorms near the Martian South Pole.
; Traveller's Report - More Chaotic Sandstorms in the Martian South Temperate Zone.
; Traveller's Report - More Chaotic Sandstorms in the Martian North Temperate Zone.
; Astronomer's Report - Major Earthquake on Venus.
; ENDTEXT
; PlayWaveFile
; S-Storm.wav
; CHANGETERRAIN
; Map=1
; terraintype=00
; maprect
; 19,51,23,51,23,61,19,61
; @ENDIF
;

;
; Martian Terrain changes
;
;
;  0=Dunes,
;  1=Dry Scrub,
;  2=Savannah,
;  3=Mutated-Scrub,
;  4=Pinnacles,
;  5=Mountains,
;  6=Mesa,
;  7=Rocky Desert,
;  8=Poisoned Ground,
;  9=Old Plantation,
; 10=Salt Ocean,
;
;
;





@IF
TURN
turn=62
@THEN
JUSTONCE
TEXT
^Traveller's Report - Huge Sandstorm south of London.
ENDTEXT
PlayWaveFile
S-Storm.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
108,100,118,100,118,110,108,110
@ENDIF


@IF
TURN
turn=72
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms near the Martian Equator.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
51,45,55,45,55,51,51,51
@ENDIF
@IF
TURN
turn=78
@THEN
JUSTONCE
TEXT
^Traveller's Report - Large Sandstorm near the Martian Equator.
ENDTEXT
PlayWaveFile
S-Storm.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
112,60,120,60,120,70,112,70
@ENDIF
@IF
TURN
turn=85
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms near the Martian South Pole.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
73,105,77,105,77,111,73,111
@ENDIF

@IF
TURN
turn=90
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms south of Washington.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
12,82,18,82,18,90,12,90
@ENDIF


@IF
TURN
turn=95
@THEN
JUSTONCE
TEXT
^Traveller's Report - Ginormous Sandstorm near the Martian North Pole.
ENDTEXT
PlayWaveFile
S-Storm.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
118,14,131,15,131,29,118,28
@ENDIF

@IF
TURN
turn=103
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms near the Martian Equator.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
19,51,23,51,23,61,19,61
@ENDIF


@IF
TURN
turn=108
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms west of Santiago.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
141,67,149,67,149,77,141,77
@ENDIF

@IF
TURN
turn=112
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms near the Martian Equator.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
19,51,23,51,23,61,19,61
@ENDIF

@IF
TURN
turn=114
@THEN
CHANGETERRAIN
Map=1
terraintype=8
maprect
60,68,63,69,63,71,60,70
@ENDIF

@IF
TURN
turn=115
@THEN
JUSTONCE
TEXT
^Traveller's Report - Huge Sandstorm near the Martian Equator.
ENDTEXT
PlayWaveFile
S-Storm.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
72,60,82,60,82,70,72,70
@ENDIF

@IF
TURN
turn=118
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms near the Martian South Pole.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
51,99,58,100,58,108,51,107
@ENDIF

@IF
TURN
turn=132
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms near the Martian Equator.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
46,58,54,58,54,62,46,62
@ENDIF

@IF
TURN
turn=133
@THEN
JUSTONCE
TEXT
^Traveller's Report - Large Sandstorm near the Martian South Pole.
ENDTEXT
PlayWaveFile
S-Storm.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
94,102,104,112,104,118,94,118
@ENDIF

@IF
TURN
turn=137
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms in the Martian North Temperate Zone.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
9,35,18,36,18,46,9,45
@ENDIF


@IF
TURN
turn=143
@THEN
JUSTONCE
TEXT
^Traveller's Report - Chaotic Sandstorms in the Martian South Temperate Zone.
ENDTEXT
PlayWaveFile
S-Storm.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
51,97,59,99,59,107,51,107
@ENDIF

@IF
TURN
turn=148
@THEN
JUSTONCE
TEXT
^Traveller's Report - Huge Sandstorms near the Martian North Pole.
ENDTEXT
PlayWaveFile
S-Storm.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
73,23,87,23,87,31,73,31
@ENDIF

@IF
TURN
turn=155
@THEN
JUSTONCE
TEXT
^Traveller's Report - More Sandstorms in the Martian North Temperate Zone.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
118,28,124,28,124,32,118,32
@ENDIF

@IF
TURN
turn=157
@THEN
CHANGETERRAIN
Map=1
terraintype=00
maprect
0,88,2,88,2,98,0,98
@ENDIF

@IF
TURN
turn=161
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms in the Martian South Temperate Zone.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
102,80,106,80,106,88,102,88
@ENDIF
@IF
TURN
turn=166
@THEN
CHANGETERRAIN
Map=1
terraintype=8
maprect
83,71,85,71,85,77,83,77
@ENDIF


@IF
TURN
turn=170
@THEN
JUSTONCE
TEXT
^^More Sandstorms.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
98,88,107,89,107,91,98,90
@ENDIF

@IF
TURN
turn=172
@THEN
JUSTONCE
TEXT
^Traveller's Report - Chaotic Sandstorms in the Martian South Temperate Zone.
ENDTEXT
PlayWaveFile
S-Storm.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
124,74,132,74,132,80,124,80
@ENDIF

@IF
TURN
turn=174
@THEN
JUSTONCE
CHANGETERRAIN
Map=1
terraintype=3
maprect
87,73,91,73,91,75,87,75
@ENDIF


@IF
TURN
turn=175
@THEN
JUSTONCE
CHANGETERRAIN
Map=1
terraintype=3
maprect
84,74,86,74,86,76,84,76
@ENDIF

@IF
TURN
turn=179
@THEN
JUSTONCE
TEXT
^^More Sandstorms.
ENDTEXT
CHANGETERRAIN
Map=1
terraintype=00
maprect
40,90,55,91,55,103,40,102
@ENDIF


@IF
TURN
turn=183
@THEN
CHANGETERRAIN
Map=1
terraintype=00
maprect
2,82,12,82,12,92,2,92
@ENDIF



@IF
TURN
turn=199
@THEN
JUSTONCE
TEXT
^Traveller's Report - Huge Sandstorms near the Martian North Pole.
ENDTEXT
PlayWaveFile
S-Storm.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
139,23,148,24,148,32,139,31
@ENDIF



@IF
TURN
turn=204
@THEN
JUSTONCE
TEXT
^^Traveller's Report - More Sandstorms.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
23,39,25,39,25,43,23,43
@ENDIF




@IF
TURN
turn=208
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms near the Martian South Pole.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
138,84,146,84,146,94,138,94
@ENDIF



@IF
TURN
turn=212
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms near the Martian South Pole.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
77,107,83,107,83,113,77,113
@ENDIF







@IF
TURN
turn=214
@THEN
JUSTONCE
TEXT
^^Traveller's Report - More Sandstorms.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
138,94,148,94,148,104,138,104
@ENDIF





@IF
TURN
turn=219
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms in the Martian North Temperate Zone.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
58,26,68,26,68,34,58,34
@ENDIF

@IF
TURN
turn=225
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
88,86,94,86,94,90,88,90
@ENDIF

@IF
TURN
turn=235
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms in the Martian North Temperate Zone.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
84,26,94,26,94,38,84,38
@ENDIF






@IF
TURN
turn=238
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
85,87,89,87,89,91,85,91
@ENDIF

@IF
TURN
turn=244
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms near the Martian Equator.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
51,53,57,53,57,59,51,59
@ENDIF

@IF
TURN
turn=249
@THEN
JUSTONCE
TEXT
^^More Sandstorms.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
82,82,88,82,88,90,82,90
@ENDIF


@IF
TURN
turn=287
@THEN
JUSTONCE
TEXT
^^More Sandstorms.
ENDTEXT
CHANGETERRAIN
Map=1
terraintype=00
maprect
141,31,147,31,147,39,141,39
@ENDIF




@IF
TURN
turn=257
@THEN
JUSTONCE
TEXT
^^Traveller's Report - More Sandstorms.
ENDTEXT
CHANGETERRAIN
Map=1
terraintype=00
maprect
82,68,87,69,87,75,82,74
@ENDIF




@IF
TURN
turn=259
@THEN
JUSTONCE
TEXT
^^Traveller's Report - More Sandstorms.
ENDTEXT
CHANGETERRAIN
Map=1
terraintype=00
maprect
10,66,18,66,18,74,10,74
@ENDIF




@IF
TURN
turn=261
@THEN
JUSTONCE
CHANGETERRAIN
Map=1
terraintype=3
maprect
74,62,76,72,76,74,74,74
@ENDIF


@IF
TURN
turn=276
@THEN
JUSTONCE
CHANGETERRAIN
Map=1
terraintype=3
maprect
57,69,59,69,59,71,57,71
@ENDIF



@IF
TURN
turn=279
@THEN
JUSTONCE
TEXT
^^More Sandstorms.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
71,69,74,70,74,78,71,77
@ENDIF




@IF
TURN
turn=363
@THEN
JUSTONCE
TEXT
^^Yet More Sandstorms.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
69,71,77,71,77,77,69,77
@ENDIF




@IF
TURN
turn=266
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms near the Martian Equator.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
79,81,81,81,81,93,79,93
@ENDIF



@IF
TURN
turn=267
@THEN
CHANGETERRAIN
Map=1
terraintype=00
maprect
20,76,24,76,24,78,20,78
@ENDIF



@IF
TURN
turn=268
@THEN
CHANGETERRAIN
Map=1
terraintype=00
maprect
24,86,26,86,26,106,24,106
@ENDIF



@IF
TURN
turn=278
@THEN
JUSTONCE
TEXT
^Traveller's Report - Sandstorms near the Martian Equator.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=00
maprect
43,69,53,69,53,79,43,79
@ENDIF




@IF
TURN
turn=282
@THEN
JUSTONCE
TEXT
^^More Sandstorms on Mars - will this foul weather never end ?
ENDTEXT
CHANGETERRAIN
Map=1
terraintype=00
maprect
11,101,15,101,15,107,11,107
@ENDIF





@IF
TURN
turn=287
@THEN
JUSTONCE
TEXT
^^Traveller's Report - More Sandstorms.
ENDTEXT
CHANGETERRAIN
Map=1
terraintype=00
maprect
41,45,43,45,43,47,41,47
@ENDIF


@IF
TURN
turn=288
@THEN
CHANGETERRAIN
Map=1
terraintype=00
maprect
19,23,29,23,29,27,19,27
@ENDIF


@IF
TURN
turn=289
@THEN
JUSTONCE
TEXT
^^Traveller's Report - More Sandstorms.
ENDTEXT
CHANGETERRAIN
Map=1
terraintype=00
maprect
9,9,13,9,13,21,9,21
@ENDIF











@IF
TURN
turn=294
@THEN
JUSTONCE
TEXT
^^Traveller's Report - More Sandstorms.
ENDTEXT
CHANGETERRAIN
Map=1
terraintype=00
maprect
118,94,130,94,130,102,118,102
@ENDIF




@IF
TURN
turn=295
@THEN
CHANGETERRAIN
Map=1
terraintype=3
maprect
58,68,64,68,64,72,58,72
@ENDIF

@IF
TURN
turn=296
@THEN
CHANGETERRAIN
Map=1
terraintype=8
maprect
44,74,48,74,48,76,44,76
@ENDIF


@IF
TURN
turn=297
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
138,94,148,94,148,104,138,104
@ENDIF


@IF
TURN
turn=327
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
52,82,58,82,58,88,52,88
@ENDIF



@IF
TURN
turn=328
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
49,79,53,79,53,81,49,81
@ENDIF


@IF
TURN
turn=329
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
70,70,74,70,74,78,70,78
@ENDIF


@IF
TURN
turn=330
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
54,96,64,96,64,108,54,108
@ENDIF

@IF
TURN
turn=352
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
86,82,96,82,96,90,86,90
@ENDIF

@IF
TURN
turn=354
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
36,78,44,78,44,90,36,90
@ENDIF

@IF
TURN
turn=333
@THEN
JUSTONCE
TEXT
^^Huge Sandstorms near the Martian Equator.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=0
maprect
94,64,106,64,106,80,94,80
@ENDIF



@IF
TURN
turn=373
@THEN
JUSTONCE
TEXT
^^Sandstorms near the Martian Equator.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=0
maprect
81,73,89,73,89,87,81,87
@ENDIF


@IF
TURN
turn=374
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
77,69,83,69,83,73,77,73
@ENDIF


@IF
TURN
turn=377
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
24,10,32,10,32,16,24,16
@ENDIF


@IF
TURN
turn=382
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
116,70,120,70,120,82,116,82
@ENDIF



@IF
TURN
turn=388
@THEN
JUSTONCE
TEXT
^^Huge Sandstorms near the Martian North Temperate zone.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=0
maprect
3,27,19,27,19,39,3,39
@ENDIF


@IF
TURN
turn=395
@THEN
JUSTONCE
TEXT
^^Huge Sandstorms near the Martian North Temperate zone.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=0
maprect
48,62,54,62,54,76,48,76
@ENDIF


@IF
TURN
turn=396
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
40,76,44,76,44,90,40,90
@ENDIF


@IF
TURN
turn=417
@THEN
JUSTONCE
TEXT
^^Huge Sandstorms near the Martian North Temperate zone.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=0
maprect
32,18,44,18,44,30,32,30
@ENDIF


@IF
TURN
turn=421
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
86,46,98,46,98,54,86,54
@ENDIF


@IF
TURN
turn=428
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
51,43,73,43,73,51,51,51
@ENDIF


@IF
TURN
turn=429
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
59,35,63,35,63,53,59,53
@ENDIF


@IF
TURN
turn=431
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
0,54,14,54,14,62,0,62
@ENDIF


@IF
TURN
turn=432
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
4,60,10,60,10,68,4,68
@ENDIF


@IF
TURN
turn=433
@THEN
JUSTONCE
TEXT
^^Huge Sandstorms near the Martian Equator.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=0
maprect
90,12,100,12,100,28,90,28
@ENDIF


@IF
TURN
turn=435
@THEN
CHANGETERRAIN
Map=1
terraintype=0
maprect
23,55,35,55,35,65,23,65
@ENDIF



@IF
TURN
turn=454
@THEN
JUSTONCE
TEXT
^^Huge Sandstorms near the Martian North Temperate zone.
ENDTEXT
PlayWaveFile
S-Storm2.wav
CHANGETERRAIN
Map=1
terraintype=0
maprect
9,7,19,7,19,17,9,17
@ENDIF




;
; Lunar Terrain changes
;


@IF
TURN
turn=137
@THEN
TEXT
^Astronomer's Report - Lunar-Quake Detected.
ENDTEXT
PlayWaveFile
Havoc.wav
CHANGETERRAIN
Map=3
terraintype=10
maprect
14,92,16,92,16,98,14,98
@ENDIF



@IF
TURN
turn=156
@THEN
JUSTONCE
TEXT
^Astronomer's Report - Major Meteor impact on Moon.
ENDTEXT
PlayWaveFile
Havoc.wav
CHANGETERRAIN
Map=3
terraintype=10
maprect
44,76,54,76,54,88,44,88
@ENDIF


@IF
TURN
turn=157
@THEN
CHANGETERRAIN
Map=3
terraintype=10
maprect
45,75,51,75,51,93,45,93
@ENDIF




@IF
TURN
turn=181
@THEN
TEXT
^Astronomer's Report - Meteor impact on Moon.
ENDTEXT
PlayWaveFile
Havoc.wav
CHANGETERRAIN
Map=3
terraintype=10
maprect
12,68,16,68,16,74,12,74
@ENDIF


@IF
TURN
turn=182
@THEN
CHANGETERRAIN
Map=3
terraintype=10
maprect
7,69,11,69,11,77,7,77
@ENDIF

@IF
TURN
turn=187
@THEN
JUSTONCE
TEXT
^Astronomer's Report - Meteor Shower on Moon Detected.
ENDTEXT
CHANGETERRAIN
Map=3
terraintype=1
maprect
69,91,73,91,73,93,69,93
@ENDIF


; Kill off Lunar-Station-3
@IF
TURN
turn=222
@THEN
TEXT
^Astronomer's Report - Another Meteor Strike on Moon Detected.
ENDTEXT
CHANGETERRAIN
Map=3
terraintype=10
maprect
101,69,105,69,105,79,101,79
@ENDIF

@IF
TURN
turn=223
@THEN
CHANGETERRAIN
Map=3
terraintype=10
maprect
102,84,104,84,104,86,102,86
@ENDIF



;
; Venusian Terrain changes
;


@IF
TURN
turn=220
@THEN
JUSTONCE
TEXT
^Astronomer's Report - Minor Earthquake on Venus.
ENDTEXT
PlayWaveFile
Havoc.wav
CHANGETERRAIN
Map=2
terraintype=5
maprect
107,57,110,58,110,60,107,59
@ENDIF

@IF
TURN
turn=240
@THEN
JUSTONCE
TEXT
^Astronomer's Report - Minor Earthquake on Venus.
ENDTEXT
PlayWaveFile
Havoc.wav
CHANGETERRAIN
Map=2
terraintype=10
maprect
24,92,31,93,31,95,24,94
@ENDIF

@IF
TURN
turn=337
@THEN
JUSTONCE
TEXT
^Astronomer's Report - Major Earthquake on Venus.
ENDTEXT
PlayWaveFile
Havoc.wav
CHANGETERRAIN
Map=2
terraintype=10
maprect
62,26,65,29,65,33,59,33
@ENDIF



@IF
TURN
turn=338
@THEN
JUSTONCE
TEXT
^^Venusian Aftershocks reported.
ENDTEXT
PlayWaveFile
Havoc.wav
CHANGETERRAIN
Map=2
terraintype=10
maprect
57,29,63,29,63,35,59,35
@ENDIF


@IF
TURN
turn=339
@THEN
JUSTONCE
TEXT
^^Venusian Aftershocks reported.
ENDTEXT
PlayWaveFile
Havoc.wav
CHANGETERRAIN
Map=2
terraintype=10
maprect
56,28,62,28,62,38,56,38
@ENDIF


@IF
TURN
turn=340
@THEN
CHANGETERRAIN
Map=2
terraintype=02
maprect
49,103,51,103,51,103,49,103
@ENDIF




@IF
TURN
turn=341
@THEN
JUSTONCE
CHANGETERRAIN
Map=2
terraintype=10
maprect
61,27,64,28,64,34,61,33
@ENDIF



; @If
; UNITKILLED
; unit=Fanatic
; attacker=ANYBODY
; defender=Luddite
; @THEN
; JUSTONCE
; Text
; ^Luddite Fanatics destroyed! Luddite leader swears vengeance against the oppressors!
; ENDTEXT
; @ENDIF


; @IF
; TURN
; turn=450
; @THEN
; JUSTONCE
; TEXT
; ^Blah Blah Blah Blah
; ENDTEXT
; GIVETECHNOLOGY
; technology=97
; Receiver=Arab-Alliance
; @ENDIF


; @IF
; UNITKILLED
; unit=Ur-Wolf
; attacker=ANYBODY
; defender=Luddites
; @THEN
; JustOnce
; TEXT
; ^^UR-WOLF KILLED
; ^
; ^Hurrah ! An elusive UR-WOLF has been killed. Now Scientists from all over
; ^can share their knowledge to try to determine the secrets of this terrible
; ^beast and work out strategies to defend against it.
; ^
; ^A One Thousand Shield Reward is to be given to the Nation responsible for this feat.
; ENDTEXT
; CHANGEMONEY
; receiver=TRIGGERATTACKER
; amount=1000
; @ENDIF

;
: Why doesn't this work ?
;

@IF
NEGOTIATION
talker=ANYBODY
talkertype=Human
listener=Euro-Consortium
listenertype=Computer
@THEN
PLAYWAVEFILE
Nowwhat.wav
@ENDIF


@IF
NEGOTIATION
talker=Arab-Alliance
talkertype=Computer
listener=Anybody
listenertype=Human
@THEN
PLAYWAVEFILE
Ni.wav
@ENDIF


;
; Prevent Interspecies Negotiations
; ---------------------------------

; prohibit negotiations between humans and Neanderthals

@IF
Negotiation
talkermask=0b00000000000011111101111110111111
listenermask=0b00000000000100000010000001000000
@THEN
@ENDIF

; prohibit negotiations between Neanderthals and humans

@IF
Negotiation
talkermask=0b00000000000100000010000001000000
listenermask=0b00000000000011111101111110111111
@THEN
@ENDIF

; when Trigger Tech (98) (X6) Linguistics is discovered,
; allow the discovering tribe to negotiate
; with the other species (Neanderthals) (as talker)

@IF
ReceivedTechnology
Receiver=Anybody
Technology=98
@THEN
Negotiator
who=triggerreceiver
type=talker
state=clear
@ENDIF

@IF
ReceivedTechnology
Receiver=Anybody
Technology=98
@THEN
Negotiator
who=triggerreceiver
type=listener
state=clear
@ENDIF

@IF
RECEIVEDTECHNOLOGY
receiver=Anybody
technology=98
@THEN
JUSTONCE
PLAYWAVEFILE
Fanfare7.wav
TEXT
^The Science of Linguistics has been invented.
^Who knows what this advance may yield !
^Perhaps now different nations and races can embrace each other as brothers
^coming to a mutual understanding and respect for each other.
^
^Perhaps we shall see an end to war ?
^
^Alternately, perhaps we are entering a new era of fraticide.
ENDTEXT
@ENDIF


@IF
RECEIVEDTECHNOLOGY
receiver=Anybody
technology=97
@THEN
JUSTONCE
PLAYWAVEFILE
Ringin.wav
TEXT
^Telephone Re-Discovered. A New Era of Communications begins.
ENDTEXT
@ENDIF


; Research Win
; ------------

; warn player when someone gets reality Engineering (X6)
; and becomes capable of researching Transcendence

;  @IF
;  ReceivedTechnology
;  Receiver=Anybody
;  Technology=98
;  @THEN
;  JustOnce
;  Text
;  ^^The race to discover the secret of Transcendence has begun!
;  ^
;  The winner shall move on to a higher form of existence,
;  transcending the physical universe, with all its woes and
;  limitations.
;  ^
;  Those who fail will languish, confined to their mortal shapes,
;  until such time as the Transcendent Ones might look back,
;  feel something akin to pity, and deign to lift their former
;  friends and enemies to join them.
;  EndText
;  @ENDIF

; when any tribe discovers Transcendence (X7)
; end the game and play the relevant AVI



; Warnings ....


@IF
TURN
turn=400
@THEN
PlayWaveFile
5th.wav
TEXT
^Sire, our Scientists respectfully remind you that they estimate we have
^only One Hundred (100) more years before our Sun is going to go Nova !
ENDTEXT
@ENDIF


@IF
TURN
turn=450
@THEN
PLAYWAVEFILE
Twilzone.wav
TEXT
^Sire, our Scientists respectfully (but somewhat impatiently)
^remind you that they estimate we have only Fifty (50) more years
^before the Solar System's Sun is going to go Nova !
ENDTEXT
@ENDIF


@IF
TURN
turn=480
@THEN
PLAYWAVEFILE
Rvw-opts.wav
TEXT
^Sire, our Scientists implore you to take heed of the time-lines facing us.
^They wish to remind you that we have maybe only Twenty (20) more years
^before the Solar System's Sun is going to go Nova and we all fry !
ENDTEXT
@ENDIF



;
;  Whoosh - SIZZLE - ROAR - ENDGAME
;

@IF
TURN
turn=496
@THEN
JustOnce
PLAYWAVEFILE
Oops.wav
TEXT
^
^^Whoops, our astronomers appear to have got their timing a little wrong...
^
^^Tachyon Telescopes detect a massive increase in activity in the Solar Corona...
^
ENDTEXT
@ENDIF


@IF
TURN
turn=497
@THEN
JustOnce
PLAYWAVEFILE
Nova.wav
TEXT
^^Venus Hit by expanding Solar Wave Front.
^
^^Farewell to Venus.
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=00
maprect
0,0,148,0,149,119,1,119
@ENDIF

@IF
TURN
turn=498
@THEN
PLAYWAVEFILE
Nova2.wav
TEXT
^^Earth's moon hit by expanding Solar Wave Front.
^
^^Moon destroyed.
ENDTEXT
CHANGETERRAIN
Map=3
terraintype=10
maprect
0,0,148,0,149,119,1,119
@ENDIF

@IF
TURN
turn=499
@THEN
PLAYWAVEFILE
Nova2.wav
TEXT
^^Earth Hit by expanding Solar Wave Front.
^
^^Farewell to Earth.
ENDTEXT
CHANGETERRAIN
Map=0
terraintype=00
maprect
0,0,148,0,149,119,1,119
@ENDIF


@IF
TURN
turn=500
@THEN
JustOnce
PLAYWAVEFILE
Nova2.wav
TEXT
^
^^Mars Hit by expanding Solar Wave Front and rendered uninhabitable.
^
^^Well, that about wraps it up for the inner Solar System.
^
ENDTEXT
CHANGETERRAIN
Map=1
terraintype=0
maprect
0,0,148,0,149,119,1,119
@ENDIF


@IF
TURN
turn=500
@THEN
JustOnce
PLAYWAVEFILE
TIME-UP.wav
EndGame
endscreens=yes
@ENDIF


@ENDEVENTS
